home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Welcome Window User Show.xpl < prev    next >
Text File  |  2003-12-06  |  3KB  |  99 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  5. "NAME"="Welcome Window Not Shown Users"
  6. "VERSION"="1.06"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000010"
  9. "TEXT 1"="Add User"
  10. "TEXT 2"="Delete User"
  11. "DESCRIPTION 1"="If you are using the new "Welcome to Windows" logon window, some user account are not visible by default because of security reasons."
  12. "DESCRIPTION 2"="You might want to hide some of your own user accounts as well inside the Welcome Window, so you can configure these hidden accounts here."
  13. "DESCRIPTION 3"="Any user inside this list WILL NOT be shown inside the Welcome Window."
  14. "DESCRIPTION 4"="Note #1: To log on using a hidden user account, press CTRL+ALT+DEL twice (Hold CTRL+ALT and press DEL twice) so the Classic Logon Window will appear. Inside that Window, you can type the name of the hidden user account and log on normally."
  15. "DESCRIPTION 5"="Note #2: If you use Windows XP and use the "Classic Logon Window", this option has no effect.
  16. "DESCRIPTION 6"="Note #3: The build-in "ADMINISTRATOR" account can not be controlled using this plug-in. A different plug-in is available that is able to show or hide the Administrator account, simply check the list on the left."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to Fred Langa for this idea!"
  21.  
  22.  
  23. Dim iItems
  24. Dim aryItems() 
  25.  
  26. sP="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
  27.  
  28. Sub Plugin_Initialize 
  29.   iItems=0
  30.   Call ReadRegistry()
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub ReadRegistry
  37.     for l=1 to iItems
  38.         Call SetUIElement(l,"")
  39.     next 
  40.     iItems=RegEnumValues(sP) 
  41.     ReDim aryItems(iItems)
  42.  
  43.     l=1
  44.     iVal=0
  45.     sDebug=""
  46.  
  47.     'read all data from the path
  48.     For l=1 to iItems       
  49.         sItem=RegEnumElement(l)    
  50.         aryItems(l)=sItem
  51.  
  52.         iVal=RegReadValue(sP & sItem)
  53.         if iVal=0 then
  54.            Call SetUIElement(l,sItem)
  55.         end if
  56.  
  57.          
  58. '        sDebug=sDebug & sItem
  59.     next
  60.     'Call DebugMsg(sDebug)
  61.  
  62. End Sub
  63.  
  64.  
  65. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  66.  If ElementIndex=1 then 'Add User
  67.     s=InputWindow("Please type the name of the user you want NOT to be shown inside the Welcome Window","",1) 
  68.     if IsEmpty(s)=false then
  69.        Call RegWriteValue(sP & s,0,2)    
  70.  
  71.        Call ReadRegistry()
  72.        Call MsgInformatioN("User has been added.")
  73.     
  74.     end if
  75.  
  76.  
  77.  else 'Delete User
  78.     if ElementSubIndex=0 then 
  79.        Call MsgWarning("No item selected - please select an item first.")
  80.        Exit sub
  81.     end if
  82.  
  83.     s=aryItems(ElementSubIndex)
  84.     if RegValueExists(sP & s) then Call RegDeleteValue(sP & S)    
  85.  
  86.     Call ReadRegistry()
  87.     Call MsgInformatioN("User has been removed from the list. This account will appear inside the Welcome Window from now on.")
  88.  end if
  89.  
  90.  
  91. ' Call Logoff()
  92. End Sub
  93.  
  94. Sub Plugin_Terminate 
  95. End Sub
  96.  
  97.  
  98.  
  99.